home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu309.dms / pu309.adf / GrtCircle / writegcdata (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-09-29  |  5KB  |  115 lines
  1. OPEN "df0:gtcirdata" FOR OUTPUT AS 5
  2. WHILE a<9999
  3.   READ a
  4.   PRINT#5,a
  5. WEND
  6. PRINT#5,9999
  7. CLOSE#5
  8. END
  9. DATA-11,145,-27,154,-38,150,-39,146,-37,142,-32,132,-35,115,-26,113
  10. DATA-21,116,-13,127,-12,137,-15,135,-17,141,-11,145,999,999
  11. REMtasmania
  12. DATA-41,145,-43,146,-43,146,-41,148,-41,145,999,999
  13. REM new guinea
  14. DATA-1,131,-2,138,-4,145,-11,151,-10,148,-8,144,-9,143
  15. DATA-8,139,-5,137,-3,132,-1,131,999,999
  16. REM borneo
  17. DATA 2,109,7,117,5,119,-4,117,-3,111,2,109,999,999
  18. REM ussr/europe
  19. DATA 67,-170,70,170,71,150,72,130,70,125,73,115,77,117,70,87,68,65,67,45
  20. DATA 71,25,62,5,58,5,58,7,59,11,56,13,57,17,63,18,66,24,63,21,60,21,60,30
  21. DATA 58,21,55,21,54,10,58,10,57,8,54,8,53,5,49,0,48,-4,47,-4,46,-1,44,-2
  22. DATA 44,-8,43,-9,37,-9,36,-6,37,-2,39,0,41,1,42,3,44,3,43,6,43,7,44,9
  23. DATA 44,10,42.5,11,40,16
  24. DATA 38,16,38,15,38,13,37,15,39,17,41,17,40,18,42,16,45,13,45,14,42,19
  25. DATA 40,20,37,21,37,23,38,24,40,23,41,27,36,28,37,36,32,34,32,27,33,22
  26. DATA 31,19,33,11,37,10,37,2,35,-2,35,-5,35.5,-6
  27. REM africa
  28. DATA 32,-10,25,-15,21,-17,15,-17,4,-8,5,-2,2,4,4,6,4,9,-2,9,-11,13,-17,12
  29. DATA -35,19,-34,27,-23,35,-20,34,-16,41,-6,39,3,46,12,51,10,44,15,39,27,33
  30. DATA 28,35,17,43,13,44,17,55,22,60,25,51,30,48,30,50,26,53,25,67
  31. REM karachi
  32. DATA 21,71,22,73,16,73,8,77,8,78,13,81,16,80,22,88,23,92,18,94,16,94,16,96
  33. DATA 17,97,12,98,8,98,6,101,3,102,1,104,5,103,10,99,13,101,8,105,12,109
  34. DATA 15,108,18,106,22,108,20,110,24,118,30,122,35,119,37,123,39,117,41,122
  35. DATA 39,126,34,127,35,129,40,128,43,132,43,135,50,140,53,140,55,135,59,143
  36. DATA 60,152,62,165,57,155,51,156,55,162,60,165,63,179,65,-172,67,-170
  37. DATA 999,999
  38. REM sth america nicaragua
  39. DATA 15,-83,11,-84,9,-82,9.5,-79.5,9,-77.5,8,-77,11,-75,12.5,-72,10,-68
  40. DATA 10.5,-63,6,-57,5,-52.5,0,-50,-2,-45,-2.5,-40,-5,-35.5,-8,-35
  41. DATA -12.5,-39,-18,-40,-22,-41,-23,-45,-25,-47,-30,-50,-35,-55,-34.5,-58
  42. DATA -37,-57,-38,-58,-38,-62.5,-41,-62.5,-40.5,-65,-43,-65,-46,-67
  43. DATA -47.5,-66,-50.5,-69,-52.5,-68,-55,-65,-55,-70,-52,-75,-47,-75
  44. DATA -40,-74,-35,-72.5,-30,-72,-25,-70.5,-18,-70,-15,-75,-10,-78
  45. DATA -6,-81,0,-80,4,-77.5,7,-77.5,9,-79,7.5,-81,8,-83,10,-85,13,-87.5
  46. DATA 14,-91,16,-94,15.5,-97,17,-100,19,-105,22,-105.5,25,-108,30,-113
  47. DATA 32,-115,28,-113,25,-111,23,-110,25,-112,27.5,-114,30,-116
  48. DATA 34,-118,34.5,-120.5,40,-124,45,-129
  49. REM  vancouver
  50. DATA 48,-124,53,-130,57,-135,60,-140,61,-147,60,-151,58,-155,55,-160
  51. DATA 54,-165,57,-160,58,-157.5,62,-166,64,-161,66,-168,67,-162
  52. DATA 68.5,-167,72,-156,70,-144,69,-136,70,-127,74,-125,73,-110
  53. DATA 70,-100,69,-90,69,-85,74,-85,74,-75,70,-70,68,-65,67,-61,63,-65
  54. DATA 64,-75,64,-87,60,-95,57,-92,55,-85,55,-79,57,-78,59,-79,62,-79
  55. DATA 60,-65,55,-60,53,-56,50,-57,48,-53,47,-53,47.5,-59.5,52,-57
  56. DATA 50,-60,50,-67,47,-70,49,-65,47,-65,47,-60,46,-60,44,-65.5
  57. DATA 44.5,-66,45.5,-65,44,-70,42.5,-70.5,41.5,-70
  58. REM new york
  59. DATA 40.5,-74,37,-76,35,-76,33,-80,30,-82,26,-80,25,-80.5,26,-82
  60. DATA 29,-82.5,30,-84,30.5,-87,30,-90,29,-90,30,-95,28,-97.5,25,-97.5
  61. DATA 22.5,-97.5,20,-97,18,-95,18,-92,21,-90.5,22,-87,16,-89,16,-85
  62. DATA 15,-83,999,999
  63. REM new zealand
  64. DATA -34,174,-37.5,178,-42,175.5,-41.5,175,-40,175,-39,174,-38,175,-34,174
  65. DATA 999,999
  66. REM nz - south
  67. DATA -40.5,172.5,-42,174,-43.5,172.5,-44,171,-46,170.5,-47,169,-46,167
  68. DATA -43,170,-40.5,172.5,999,999
  69. REM uk
  70. DATA 50,-6,51,-3,51,.5,51.5,1,51.5,0,52,1,52.5,2,53,0,55,-2,56.5,-3,57.5,-2
  71. DATA 57.5,-4,58.5,-3,58.5,-5,57,-7,56,-5,54,-3,53,-3,52.5,-4.5,52.5,-4
  72. DATA 52,-5,53,-2.5,51.5,-4,50,-6,999,999
  73. REM eire
  74. DATA 55,-8,55,-5.5,53,-6,52.5,-6.5,52,-9,52.5,-10,53,-9,53,-10,54,-10
  75. DATA 54,-8,55,-8,999,999
  76. REM antarctica
  77. DATA -70,0,-70,5,-70,10,-69,15,-70,20,-70,25,-69,30,-69,35,-70,40,-68,45
  78. DATA -67,50,-66,55,-67,60,-67,65,-67,70,-70,75,-68,80,-67,85,-67,90,-67,95
  79. DATA -65,95,-65,105,-67,105,-67,110,-67,115,-67,120,-67,125,-67,130,-67,135
  80. DATA -67,140,-67.5,145,-68.5,150,-69,155,-70,160,-71,165,-72.5,170,-75,165
  81. DATA -78,160,-77,170,-77,179,-78,-179,-78,-179,-78,-170,-78,-165,-77.5,-160
  82. DATA -77,-155,-76.5,-150,-75,-145,-75,-140,-74.5,-135,-74.5,-130,-73,-125
  83. DATA -73.5,-120,-74,-115,-74.5,-110,-75,-103,-72,-103,-72.5,-95,-72.5,-90
  84. DATA -73,-80,-73,-75,-70,-75,-69,-68,-67,-66,-63,-60,-67,-60,-70,-60
  85. DATA -75,-60,-77.5,-50,-77.5,-40,-76,-30,-75,-25,-72,-15,-70,-5,-70,0
  86. DATA 999,999
  87. REM greenland
  88. DATA 60,-44,65,-40,68,-32,70,-23,75,-23,80,-23,83,-30,82,-55,80,-70,77,-70
  89. DATA 76,-60,70,-55,67,-54,62,-50,61,-48,60,-44,999,999
  90. REM iceland
  91. DATA 67,-15,65,-13,64,-15,63,-19,64,-23,65.5,-24,67,-22,65,-20,67,-15
  92. DATA 999,999
  93. REM madagascar
  94. DATA -12,49,-16,50.5,-20,48.5,-25,47,-26,45,-22.5,43,-20,44,-17,44,-15,47
  95. DATA -12,49,999,999
  96. REM japan
  97. DATA 43,145.5,42,143,41.5,141,40,142,37,141,35,140,34,137,33,134,31.5,130.5
  98. DATA 33,129.5,35.5,133,35.5,135.5,37,137,39,140,42.5,140,45.5,142,43,145.5
  99. DATA 999,999
  100. REM caspian sea
  101. DATA 40.5,50,45,47,47,50,47,53,45.5,53,45,51,40,53,37,54,37,52,38,49
  102. DATA 40.5,50,999,999
  103. REM black sea
  104. DATA 47.5,39.5,45.5,37,42.5,42,41.5,42,41.5,37,42,35,41.5,32,41.5,28,44,28
  105. DATA 47,31,46.5,33,45.5,32.5,44.5,34.5,45.5,36,46,34,47.5,39.5,999,999
  106. REM hawaii
  107. DATA 20,-160,19,-160,19,-159,20,-159,20,-160,999,999
  108. REM fiji
  109. DATA -16,179,-17,179,-17,178,-16,178,-16,179,999,999
  110. REM sri lanka
  111. DATA 10,80,9,80,8,80,7,79,6,80,5,81,6,82,7,83,9,81,10,80,999,999
  112. REM end
  113. DATA 9999,9999
  114.  
  115.